home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / kifu.bas < prev    next >
BASIC Source File  |  1991-10-18  |  7KB  |  120 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 1000 '☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
  3. 1010 '☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　☆
  4. 1020 '☆　　　　　　　　　貴婦人の乗馬(La chevaleresque)　　　　　　　　☆
  5. 1030 '☆　　　　　　　ＣＯＭＰＯＳＥＤ　ＢＹ　ブルグミュラー　　　　　　☆
  6. 1040 '☆　　　　　　　ＰＲＯＧＲＡＭＥＤ　ＢＹ　Ｗ．ＭｏＭｏ　　　　　　☆
  7. 1050 '☆　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　☆
  8. 1060 '☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
  9. 1070 '
  10. 1080 '
  11. 1090 PLAY OFF:BGM 1:FOR I=0 TO 13:PART 13-I,I:NEXT
  12. 1100 LOAD@"Q:\FJ\PCM\CLASSIC2.PMB":GOSUB 1780
  13. 1110 '
  14. 1120 T$="T152U0%CQ8":PLAY T$,T$,T$,T$, T$,T$,T$,T$
  15. 1130 '
  16. 1140 A0$="U20%R5@1Q5V5O4L8(GR>ER<)>E32&D16.R16C+16&DR16Q8<B16>A&AG&GQ5ERDRCRFRER16D16&<BR16>Q8C16<A&A>Q5AR<"
  17. 1150 B0$="U-20%L5@1Q5V5O4L8ERGRERGR>E32&D16.R16C+16&DR16Q8<B16>A&AG&GQ5CR<BRARAR>ER16D16&<BR16>Q8C16<A&A>Q5AR<"
  18. 1160 D0$="U20%L@1L8Q5V5O3CR>ER<CR>ERFRFRF&F&F&F&ERERER<DR>DRDRC&C&CR<"
  19. 1170 E0$="%C@1L8Q5V5O3R1BRBRQ8B2Q5R1G+RG+RR2"
  20. 1180 F0$="U-20%RL8@1Q5V5O3CR>CR<CR>CR<GRGRG&G&G&G&>CR<G+RARDRERERA&A&AR"
  21. 1190 G0$="U-20%R10@1Q5V1O4L8R16(GR>ER<)>E32&D16.R16C+16&DR16Q8<B16>A&AG&GQ5ERDRCRFRER16D16&<BR16>Q8C16<A&A>Q5AR16<"
  22. 1200 H0$="U 20%L10@1Q5V1O4L8R16ERGRERGR>E32&D16.R16C+16&DR16Q8<B16>A&AG&GQ5CR<BRARAR>ER16D16&<BR16>Q8C16<A&A>Q5AR16<"
  23. 1210 A1$="GR>ER<GR>ERE32&D16.R16C+16&DR16<B16&>Q8A&AG&GQ5GRF+RFRERER16D16&<GR16>D16&Q8C&CRR"
  24. 1220 B1$="ERGRERGR>E32&D16.R16C+16&DR16<B16&>Q8A&AG&GCRCRCRCRER16D16&<GR16>D16&Q8C&CRR"
  25. 1230 G1$="R16GR>ER<GR>ERE32&D16.R16C+16&DR16<B16&>Q8A&AG&GQ5GRF+RFRERER16D16&<GR16>D16&Q8C&CRR16"
  26. 1240 H1$="R16ERGRERGR>E32&D16.R16C+16&DR16<B16&>Q8A&AG&GCRCRCRCRER16D16&<GR16>D16&Q8C&CRR16"
  27. 1250 D1$="CR>ER<CR>ERFRFRQ8F2Q5CRCRCRCRFRFRQ8E4R4<"
  28. 1260 E1$="R1BRBRQ8B2Q5R1BRBRR2"
  29. 1270 F1$="CR>CR<CR>CR<GRGRQ8G2Q5B-RARA-RGRGRGRQ8>C4R4<"
  30. 1280 '
  31. 1290 A2$="L12O3]] ]] ]] Q8GB>C ] DEF+ ] Q5L8GR [[[[[[[[ >DR E-RCR<B&B&>DRO3L12]] ]] ]] Q8GB>C ] DEF+ ] Q5L8GR[[[[[[[[>FRE-RCRQ8G&GR<"
  32. 1300 B2$="L12O3 ]] ]] ]] Q8GB>C ] DEF+ ] Q5L8GR [[[[[[[[ GRGRGRG&G&GRO3 ]] ]] ]] Q8L12GB>C ] DEF+ ] Q5L8GR [[[[[[[[GRGRGRQ8B&BR"
  33. 1310 D2$="L12]]]]]]]]Q8<GB>C]DEF+]Q5L8GR[[[[[[[[[BR>CRE-RD&D<[[B]]RL12]]]]]]]]Q8<GB>C]DEF+]Q5L8GR[[[[[[[[[BR>CRE-RD&D<[[G]]R"
  34. 1320 G2$="R16L12O3]] ]] ]] Q8GB>C ] DEF+ ] Q5L8GR [[[[[[[[ >DR E-RCR<B&B&>DRO3L12]] ]] ]] Q8GB>C ] DEF+ ] Q5L8GR[[[[[[[[>FRE-RCRQ8G&GR16<"
  35. 1330 H2$="R16L12O3 ]] ]] ]] Q8GB>C ] DEF+ ] Q5L8GR [[[[[[[[ GRGRGRG&G&GRO3 ]] ]] ]] Q8L12GB>C ] DEF+ ] Q5L8GR [[[[[[[[GRGRGRQ8B&BR16"
  36. 1340 '
  37. 1350 A3$="Q8L12O5CAGFEDCDC<B>CDC AGFEDCDC<B>CDC ]C+]D]D+]E]F [[F+8&F+8Q5[[[G8R8 >]Q8CC+]D]D+]E]F [[F+8&F+8Q5[[[G8R8 (CAGFEDCDC<B>CD) ]Q5CQ8>C<B- ]AGF ]EDC ]<B-AG ]FAB- ]>CDE ]Q5L8F&FRR[[[[[[["
  38. 1360 G3$="R16Q8L12O5CAGFEDCDC<B>CDC AGFEDCDC<B>CDC ]C+]D]D+]E]F [[F+8&F+8Q5[[[G8R8 >]Q8CC+]D]D+]E]F [[F+8&F+8Q5[[[G8R8 (CAGFEDCDC<B>CD) ]Q5CQ8>C<B- ]AGF ]EDC ]<B-AG ]FAB- ]>CDE ]Q5L8F&FRR16[[[[[[["
  39. 1370 D3$="O3Q8A1A1B-1B-1A1A1 Q2C&C>C&C<C&C>C&C<A&A>C&C<A&ARR"
  40. 1380 F3$="O3Q8F1F1E1E1F1F1 Q2C&CA&AC&CB-&B-F&FA&AF&FRR"
  41. 1390 E3$="L4Q8O4(RCCC)4(RCCC)R1R1"
  42. 1400 '
  43. 1410 A4$="O4Q5(RG)4]]RG]]RG]]R>C]]RE]]GRD.&E32&D32C+R16D16&FR16E16&C&C&Q8E<B>[[D[[C<[[B[[A[["
  44. 1420 G4$="R16O4Q5(RG)4]]RG]]RG]]R>C]]RE]]GRD.&E32&D32C+R16D16&FR16E16&C&C&Q8E<B>[[D[[C<[[B[[A16[["
  45. 1430 B4$="Q5O3RB>RCRC+RD]]RE]]RE]]RG]]R>C]]<BR>D.&E32&D32C+R16D16&FR16E16&C&C&Q8E<B>[[D[[C<[[B[[A[["
  46. 1440 H4$="R16Q5O3RB>RCRC+RD]]RE]]RE]]RG]]R>C]]<BR>D.&E32&D32C+R16D16&FR16E16&C&C&Q8E<B>[[D[[C<[[B[[A16[["
  47. 1450 D4$="Q5O3GRARA+RBR>]]CR<]]GR]]ER]]CR]<GRO4FRFRFRQ8E4R4R2[[[[[[[[[[<"
  48. 1460 E4$="Q5R1R1RR]]]]]]]]]]BRBRBR[[[[[[[[[[R1"
  49. 1470 F4$="Q5O3GRARA+RBR>]]CR<]]GR]]ER]]CR]<GR>GRGRGRQ8>C4R4R2[[[[[[[[[[<"
  50. 1480 A5$="L12Q8RRGRRGRRGRRG]]RRG]]RRG]]RR>C]]RRE]]L8Q5GRD.&E32&D32C+R16D16&FR16E16&L16Q8CDEFGAB>C<G2"
  51. 1490 G5$="R16L12Q8RRGRRGRRGRRG]]RRG]]RRG]]RR>C]]RRE]]L8Q5GRD.&E32&D32C+R16D16&FR16E16&L16Q8[[[[[CDEFGAB>C<G4..&"
  52. 1500 B5$="L12Q8O3RBR >RCR RC+R RDR]]RER]]RER]]RGR]]>RCR<Q5L8BR>D.&E32&D32C+R16D16&FR16E16&L16Q8CDEFGAB>C<G2"
  53. 1510 H5$="R16L12Q8O3RBR >RCR RC+R RDR]]RER]]RER]]RGR]]>RCR<Q5L8BR>D.&E32&D32C+R16D16&FR16E16&L16Q8[[[[[CDEFGAB>C<G4..&"
  54. 1520 D5$="Q5O3GRARA+RBR>]]CR<]]GR]]ER]]CR]<GRO4FRFRFRQ8E4R4L16O3Q8GAB>CDEFG"
  55. 1530 E5$="Q5R1R1RR]]]]]]]]]]BRBRBRR1"
  56. 1540 F5$="Q5O3GRARA+RBR>]]CR<]]GR]]ER]]CR]<GR>GRGRGRQ8>C4R4L16O3Q8GAB>CDEFG"
  57. 1550 A6$="CDEFGAB>C<G2CGFEDC<BAG>C<BAGFEDCGFEDC<BAG>C<BAGFEDC&C&C&CRRRRL8Q5 O5CRFRE4R4>E4R4Q8T-40O4C1R1"
  58. 1560 G6$="G16CDEFGAB>C<G2CGFEDC<BAG>C<BAGFEDCGFEDC<BAG>C<BAGFEDC&C&C&CRRRRL8Q5 O5CRFRE4R4>E4R4Q8T-40O4C1R1"
  59. 1570 B6$="CDEFGAB>C<G2CGFEDC<BAG>C<BAGFEDCGFEDC<BAG>C<BAGFEDC&C&C&CRRRRL8Q5 O4ARA-RG4R4>E4R4Q8O3G1"
  60. 1580 H6$="G16CDEFGAB>C<G2CGFEDC<BAG>C<BAGFEDCGFEDC<BAG>C<BAGFEDC&C&C&CRRRRL8Q5 O4ARA-RG4R4>E4R4Q8O3G1"
  61. 1590 C6$="@1L8R1R1R1R2O5V15Q5RRCRC4R4G4R4R1"
  62. 1600 D6$="E4R4<GAB>CDEFGE4R4RC<BAGFEDC8R8R4RC<BAGFEDC4R4Q5 L8O4CRCRE4R4G4R4Q8O3E1"
  63. 1610 E6$="R1R1R1R1O4R4R4Q5E4R4R1"
  64. 1620 F6$="C4R4<GAB>CDEFGE4R4RC<BAGFEDC8R8R4RC<BAGFEDC4R4Q5 L8O3FRFR>C4R4C4R4<Q8C1"
  65. 1630 '
  66. 1640 FOR I=1 TO 2
  67. 1650 PLAY A0$,B0$,C0$, D0$,E0$,F0$, G0$,H0$
  68. 1660 PLAY A1$,B1$,C1$, D1$,E1$,F1$, G1$,H1$
  69. 1670 NEXT
  70. 1680 FOR I=1 TO 2
  71. 1690 PLAY A2$,B2$,C2$, D2$,E2$,D2$, G2$,H2$
  72. 1700 PLAY A1$,B1$,C1$, D1$,E1$,F1$, G1$,H1$
  73. 1710 NEXT
  74. 1720 PLAY A3$,A3$,C3$, D3$,E3$,F3$, G3$,G3$
  75. 1730 PLAY A0$,B0$,C0$, D0$,E0$,F0$, G0$,H0$
  76. 1740 PLAY A1$,B1$,C1$, D1$,E1$,F1$, G1$,H1$
  77. 1750 PLAY A4$,B4$,C4$, D4$,E4$,F4$, G4$,H4$
  78. 1760 PLAY A5$,B5$,C5$, D5$,E5$,F5$, G5$,H5$
  79. 1770 PLAY A6$,B6$,C6$, D6$,E6$,F6$, G6$,H6$:GOTO 65000
  80. 1780 '
  81. 1790 SCREEN@0:COLOR 7,0,0,0:CLS
  82. 1800 '
  83. 1810 FOR I=1 TO 3:FOR II=1 TO 3
  84. 1820  SYMBOL(10-I,10-II),"貴婦人の乗馬",4,4,1,,,,45
  85. 1830 NEXT II,I
  86. 1840 SYMBOL(10-2,10-2),"貴婦人の乗馬",4,4,4,,,,45
  87. 1850 '
  88. 1860 FOR I=1 TO 3:FOR II=1 TO 3
  89. 1870  SYMBOL(10-I,100-II),"Ｌａ　ｃｈｅｖａｌｅｒｅｓｑｕｅ",2,2,5 ,,,,7
  90. 1880 NEXT II,I
  91. 1890 SYMBOL(10-2,100-2),"Ｌａ　ｃｈｅｖａｌｅｒｅｓｑｕｅ",2,2,1 ,,,,7
  92. 1900 '
  93. 1910 FOR I=1 TO 3:FOR II=1 TO 3
  94. 1920  SYMBOL(10-I,150-II),"ＣＯＭＰＯＳＥＤ　ＢＹ　ＢＵＲＧＭＵＬＬＥＲ",1.7!,2,6,,,,1
  95. 1930 NEXT II,I
  96. 1940 SYMBOL(10-2,150-2),"ＣＯＭＰＯＳＥＤ　ＢＹ　ＢＵＲＧＭＵＬＬＥＲ",1.7!,2,2,,,,1
  97. 1950 FOR I=1 TO 3:FOR II=1 TO 3
  98. 1960  SYMBOL(10-I,200-II),"ＰＲＯＧＲＡＭＥＤ　ＢＹ",1.7!,2,6,,,,6
  99. 1970  SYMBOL(10-I,200-II),"　　　　　　　　　　　　　Ｗ．ＭｏＭｏ",1.7!,2,3,,,,6
  100. 1980 NEXT II,I
  101. 1990 SYMBOL(10-2,200-2),"ＰＲＯＧＲＡＭＥＤ　ＢＹ",1.7!,2,2,,,,6
  102. 2000 SYMBOL(10-2,200-2),"　　　　　　　　　　　　　Ｗ．ＭｏＭｏ",1.7!,2,2,,,,6
  103. 2010 '
  104. 2020 RESTORE 2020:Y=250
  105. 2030 READ A$
  106. 2040  IF A$="\" THEN RETURN
  107. 2050   FOR II=1 TO 3:FOR I=1 TO 3
  108. 2060    SYMBOL(10-I,Y-II),A$,1,1,1
  109. 2070   NEXT I,II
  110. 2080  SYMBOL(8,Y-2),A$,1,1,7:Y=Y+30
  111. 2090 GOTO 2030
  112. 2100 '
  113. 2110 DATA "約束通り作りました。　
  114. 2120 DATA "私はこの曲大好きなんです。ＰＩＡＮＯをしていたとき、よく弾いてました。
  115. 2130 DATA "プログラムの方は結構まともに出来たと思います。
  116. 2140 DATA "どうでもいいけどＰＩＡＮＯの曲って結構疲れるんですね（音量の変化が激しいから）。
  117. 2180 DATA "\"
  118. 65000 BGM 0:PLAY "R64":BGM 1
  119. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  120.